####
#Media Criticism in E-Newsletters
####

library(plyr)
load('media.mention.frame.RData')

ddply(media.mention.frame,.(content),summarise,negative.share=round(mean(negative.label,na.rm=TRUE),digits=2))
round(mean(media.mention.frame$negative.label[which(media.mention.frame$Party=="Democrat")],na.rm=TRUE),digits=2)
round(mean(media.mention.frame$negative.label[which(media.mention.frame$Party=="Republican")],na.rm=TRUE),digits=2)
